home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / ETCH.SEQ < prev    next >
Unknown  |  2019-04-13  |  3.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Cyber Paint Sequence (video/cyberPaintSeq) ext Supported
66% dexvert STAD PAC (image/stadPAC) ext Supported
1% dexvert Guillemot MaxiSound Sequence (music/guillemotMaxiSoundSequence) ext Unsupported
1% dexvert Music-X Sequence (music/musicXSequence) ext Unsupported
1% dexvert PETSCII Screen Code Sequence (image/petsciiSeq) ext Unsupported
1% dexvert Philips Music Creator data (other/philipsMusicCreatorData) ext Unsupported
1% dexvert VideoFX2 Sequence (other/videoFX2Sequence) ext Unsupported
1% dexvert MP Entertainment Animation (other/mPEntertainmentAnimation) ext Unsupported
1% dexvert Vizastar spreadsheet (other/vizastarSpreadsheet) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[CR] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 0d 31 30 30 20 72 65 | 6d 20 76 69 63 20 65 74 |..100 re|m vic et|
|00000010| 63 68 2d 61 2d 73 6b 65 | 74 63 68 20 75 73 69 6e |ch-a-ske|tch usin|
|00000020| 67 20 6a 6f 79 73 74 69 | 63 6b 0d 31 31 30 20 72 |g joysti|ck.110 r|
|00000030| 65 6d 20 62 79 20 64 61 | 76 69 64 20 6d 61 6c 6d |em by da|vid malm|
|00000040| 62 65 72 67 0d 31 32 30 | 20 72 65 6d 20 34 33 30 |berg.120| rem 430|
|00000050| 36 34 20 76 69 61 20 6d | 6f 72 61 67 61 0d 31 33 |64 via m|oraga.13|
|00000060| 30 20 72 65 6d 20 66 72 | 65 6d 6f 6e 74 2c 20 63 |0 rem fr|emont, c|
|00000070| 61 6c 69 66 6f 72 6e 69 | 61 20 39 34 35 33 38 0d |aliforni|a 94538.|
|00000080| 31 34 30 20 63 3d 32 32 | 20 3a 20 72 3d 32 33 20 |140 c=22| : r=23 |
|00000090| 3a 20 73 3d 37 36 38 30 | 20 3a 20 61 20 3d 33 30 |: s=7680| : a =30|
|000000a0| 37 32 30 20 3a 20 64 64 | 3d 33 37 31 35 34 20 3a |720 : dd|=37154 :|
|000000b0| 20 70 31 3d 33 37 31 35 | 31 20 3a 20 70 32 3d 33 | p1=3715|1 : p2=3|
|000000c0| 37 31 35 32 0d 31 35 30 | 20 73 62 3d 33 36 38 37 |7152.150| sb=3687|
|000000d0| 39 20 3a 20 76 3d 33 36 | 38 37 38 20 3a 20 73 31 |9 : v=36|878 : s1|
|000000e0| 3d 76 2d 32 20 3a 20 64 | 69 6d 6c 25 28 32 2c 32 |=v-2 : d|iml%(2,2|
|000000f0| 29 0d 31 36 30 20 66 6f | 72 20 69 3d 30 74 6f 32 |).160 fo|r i=0to2|
|00000100| 20 3a 20 66 6f 72 20 6a | 3d 30 74 6f 32 20 3a 20 | : for j|=0to2 : |
|00000110| 72 65 61 64 20 6c 25 28 | 69 2c 6a 29 20 3a 20 6e |read l%(|i,j) : n|
|00000120| 65 78 74 20 6a 2c 69 0d | 31 37 30 20 64 61 74 61 |ext j,i.|170 data|
|00000130| 20 37 37 2c 36 34 2c 37 | 38 2c 39 33 2c 34 36 2c | 77,64,7|8,93,46,|
|00000140| 39 33 2c 37 38 2c 36 34 | 2c 37 37 0d 31 38 30 20 |93,78,64|,77.180 |
|00000150| 64 65 66 20 66 6e 61 28 | 7a 29 20 3d 20 73 2b 28 |def fna(|z) = s+(|
|00000160| 78 2d 31 29 2b 63 2a 28 | 79 2d 31 29 20 3a 20 64 |x-1)+c*(|y-1) : d|
|00000170| 65 66 20 66 6e 63 28 7a | 29 20 3d 20 66 6e 61 28 |ef fnc(z|) = fna(|
|00000180| 7a 29 20 2b 20 61 0d 31 | 39 30 20 70 72 69 6e 74 |z) + a.1|90 print|
|00000190| 63 68 72 24 28 31 34 37 | 29 3b 22 20 20 20 20 20 |chr$(147|);" |
|000001a0| 65 74 63 68 2d 61 2d 73 | 6b 65 74 63 68 22 3a 70 |etch-a-s|ketch":p|
|000001b0| 72 69 6e 74 3a 70 72 69 | 6e 74 3a 69 6e 70 75 74 |rint:pri|nt:input|
|000001c0| 22 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 3f 22 3b |"instruc|tions?";|
|000001d0| 61 24 0d 32 30 30 20 69 | 66 20 61 24 3d 22 79 22 |a$.200 i|f a$="y"|
|000001e0| 20 74 68 65 6e 20 67 6f | 73 75 62 37 32 30 0d 32 | then go|sub720.2|
|000001f0| 31 30 20 70 6f 6b 65 73 | 62 2c 32 37 20 3a 70 72 |10 pokes|b,27 :pr|
|00000200| 69 6e 74 63 68 72 24 28 | 31 34 37 29 3b 22 65 74 |intchr$(|147);"et|
|00000210| 63 68 2d 61 2d 73 6b 65 | 74 63 68 20 20 6f 70 74 |ch-a-ske|tch opt|
|00000220| 69 6f 6e 73 22 0d 32 32 | 30 20 70 72 69 6e 74 3a |ions".22|0 print:|
|00000230| 70 72 69 6e 74 3a 70 72 | 69 6e 74 22 65 6e 74 65 |print:pr|int"ente|
|00000240| 72 20 62 6f 72 64 65 72 | 20 63 6f 6c 6f 72 22 20 |r border| color" |
|00000250| 3a 20 67 6f 73 75 62 36 | 35 30 0d 32 33 30 20 62 |: gosub6|50.230 b|
|00000260| 72 20 3d 20 76 61 6c 28 | 61 24 29 2d 31 20 3a 20 |r = val(|a$)-1 : |
|00000270| 69 66 20 62 72 3c 30 20 | 6f 72 20 62 72 3e 38 20 |if br<0 |or br>8 |
|00000280| 74 68 65 6e 20 32 32 30 | 0d 32 34 30 20 70 72 69 |then 220|.240 pri|
|00000290| 6e 74 3a 70 72 69 6e 74 | 22 65 6e 74 65 72 20 73 |nt:print|"enter s|
|000002a0| 63 72 65 65 6e 20 63 6f | 6c 6f 72 22 20 3a 20 67 |creen co|lor" : g|
|000002b0| 6f 73 75 62 36 35 30 0d | 32 35 30 20 62 63 20 3d |osub650.|250 bc =|
|000002c0| 20 76 61 6c 28 61 24 29 | 2d 31 20 3a 20 69 66 20 | val(a$)|-1 : if |
|000002d0| 62 63 3c 30 20 6f 72 20 | 62 63 3e 38 20 74 68 65 |bc<0 or |bc>8 the|
|000002e0| 6e 20 32 34 30 0d 32 36 | 30 20 70 72 69 6e 74 3a |n 240.26|0 print:|
|000002f0| 70 72 69 6e 74 20 20 22 | 64 72 61 77 69 6e 67 20 |print "|drawing |
|00000300| 73 70 65 65 64 20 3f 22 | 20 3a 20 70 72 69 6e 74 |speed ?"| : print|
|00000310| 22 30 2d 66 61 73 74 20 | 74 6f 20 39 2d 73 6c 6f |"0-fast |to 9-slo|
|00000320| 77 22 20 3a 20 67 6f 73 | 75 62 36 35 30 0d 32 37 |w" : gos|ub650.27|
|00000330| 30 20 64 6c 3d 76 61 6c | 28 61 24 29 0d 32 38 30 |0 dl=val|(a$).280|
|00000340| 20 70 72 69 6e 74 3a 70 | 72 69 6e 74 22 73 74 61 | print:p|rint"sta|
|00000350| 72 74 20 69 6e 20 63 65 | 6e 74 65 72 20 3f 22 20 |rt in ce|nter ?" |
|00000360| 3a 20 67 6f 73 75 62 36 | 35 30 0d 32 39 30 20 69 |: gosub6|50.290 i|
|00000370| 66 20 61 24 3d 22 79 22 | 20 74 68 65 6e 20 78 3d |f a$="y"| then x=|
|00000380| 31 30 20 3a 20 79 3d 31 | 31 20 3a 20 67 6f 74 6f |10 : y=1|1 : goto|
|00000390| 33 34 30 0d 33 30 30 20 | 70 72 69 6e 74 3a 69 6e |340.300 |print:in|
|000003a0| 70 75 74 22 73 74 61 72 | 74 69 6e 67 20 72 6f 77 |put"star|ting row|
|000003b0| 3f 22 3b 79 0d 33 31 30 | 20 69 66 20 79 3e 32 32 |?";y.310| if y>22|
|000003c0| 20 6f 72 20 79 3c 30 20 | 74 68 65 6e 20 33 30 30 | or y<0 |then 300|
|000003d0| 0d 33 32 30 20 70 72 69 | 6e 74 3a 69 6e 70 75 74 |.320 pri|nt:input|
|000003e0| 22 73 74 61 72 74 69 6e | 67 20 63 6f 6c 75 6d 6e |"startin|g column|
|000003f0| 3f 22 3b 78 0d 33 33 30 | 20 69 66 20 78 3e 32 33 |?";x.330| if x>23|
|00000400| 20 6f 72 20 78 3c 30 20 | 74 68 65 6e 20 33 32 30 | or x<0 |then 320|
|00000410| 0d 33 34 30 20 70 72 69 | 6e 74 3a 70 72 69 6e 74 |.340 pri|nt:print|
|00000420| 22 73 74 61 72 74 69 6e | 67 20 63 68 61 72 61 63 |"startin|g charac|
|00000430| 74 65 72 20 3f 22 3a 70 | 72 69 6e 74 22 3c 6c 3e |ter ?":p|rint"<l>|
|00000440| 20 77 69 6c 6c 20 67 69 | 76 65 20 6c 69 6e 65 73 | will gi|ve lines|
|00000450| 22 3a 67 6f 73 75 62 36 | 35 30 0d 33 35 30 20 63 |":gosub6|50.350 c|
|00000460| 72 3d 61 73 63 28 61 24 | 29 20 3a 20 6c 3d 30 20 |r=asc(a$|) : l=0 |
|00000470| 3a 20 69 66 20 61 24 3d | 22 6c 22 20 74 68 09 00 |: if a$=|"l" th..|
|00000480| 20 6c 3d 31 0d 33 36 30 | 20 70 72 69 6e 74 3a 70 | l=1.360| print:p|
|00000490| 72 69 6e 74 22 73 74 61 | 72 74 69 6e 67 20 63 6f |rint"sta|rting co|
|000004a0| 6c 6f 72 20 3f 22 3a 67 | 6f 73 75 62 36 35 30 3a |lor ?":g|osub650:|
|000004b0| 63 6c 3d 76 61 6c 28 61 | 24 29 2d 31 3a 69 66 20 |cl=val(a|$)-1:if |
|000004c0| 63 6c 3c 30 20 6f 72 20 | 63 6c 3e 38 20 74 68 65 |cl<0 or |cl>8 the|
|000004d0| 6e 20 33 36 30 0d 33 37 | 30 20 70 6f 6b 65 73 62 |n 360.37|0 pokesb|
|000004e0| 2c 31 36 2a 62 63 2b 62 | 72 2b 38 20 3a 70 72 69 |,16*bc+b|r+8 :pri|
|000004f0| 6e 74 63 68 72 24 28 31 | 34 37 29 0d 33 38 30 20 |ntchr$(1|47).380 |
|00000500| 72 65 6d 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |rem begi|nning of|
|00000510| 20 64 72 61 77 69 6e 67 | 20 6c 6f 6f 70 0d 33 39 | drawing| loop.39|
|00000520| 30 20 61 24 3d 22 22 20 | 3a 20 67 65 74 61 24 20 |0 a$="" |: geta$ |
|00000530| 3a 20 69 66 20 61 24 3d | 22 22 20 74 68 65 6e 20 |: if a$=|"" then |
|00000540| 34 35 30 0d 34 30 30 20 | 69 66 20 61 24 3d 22 6c |450.400 |if a$="l|
|00000550| 22 20 74 68 65 6e 20 6c | 3d 31 20 3a 20 67 6f 74 |" then l|=1 : got|
|00000560| 6f 34 35 30 20 3a 20 72 | 65 6d 20 75 73 65 73 20 |o450 : r|em uses |
|00000570| 6c 69 6e 65 73 0d 34 31 | 30 20 69 66 20 61 24 3e |lines.41|0 if a$>|
|00000580| 22 30 22 20 61 6e 64 20 | 61 24 3c 22 39 22 20 74 |"0" and |a$<"9" t|
|00000590| 68 65 6e 20 63 6c 3d 76 | 61 6c 28 61 24 29 2d 31 |hen cl=v|al(a$)-1|
|000005a0| 20 3a 20 67 6f 74 6f 34 | 35 30 20 3a 20 72 65 6d | : goto4|50 : rem|
|000005b0| 20 6e 65 77 20 63 6f 6c | 6f 72 0d 34 32 30 20 69 | new col|or.420 i|
|000005c0| 66 20 61 24 3d 22 63 22 | 20 74 68 65 6e 20 32 31 |f a$="c"| then 21|
|000005d0| 30 20 3a 20 72 65 6d 20 | 73 74 61 72 74 20 6f 76 |0 : rem |start ov|
|000005e0| 65 72 0d 34 33 30 20 6e | 63 3d 61 73 63 28 61 24 |er.430 n|c=asc(a$|
|000005f0| 29 20 3a 20 69 66 20 6e | 63 3e 31 32 37 20 74 68 |) : if n|c>127 th|
|00000600| 65 6e 20 33 39 30 20 3a | 20 72 65 6d 20 69 6e 76 |en 390 :| rem inv|
|00000610| 61 6c 69 64 20 63 68 61 | 72 61 63 74 65 72 0d 34 |alid cha|racter.4|
|00000620| 34 30 20 63 72 3d 6e 63 | 20 3a 20 6c 3d 30 20 3a |40 cr=nc| : l=0 :|
|00000630| 20 72 65 6d 20 63 68 61 | 6e 67 65 20 63 68 61 72 | rem cha|nge char|
|00000640| 61 63 74 65 72 0d 34 35 | 30 20 67 6f 73 75 62 36 |acter.45|0 gosub6|
|00000650| 38 30 20 3a 20 72 65 6d | 20 72 65 61 64 20 6a 6f |80 : rem| read jo|
|00000660| 79 73 74 69 63 6b 20 73 | 77 69 74 63 68 65 73 0d |ystick s|witches.|
|00000670| 34 36 30 20 64 78 3d 30 | 20 3a 20 64 79 3d 09 00 |460 dx=0| : dy=..|
|00000680| 3a 20 69 66 20 6a 30 20 | 74 68 65 6e 20 64 78 3d |: if j0 |then dx=|
|00000690| 31 0d 34 37 30 20 69 66 | 20 6a 31 20 74 68 65 6e |1.470 if| j1 then|
|000006a0| 20 64 79 3d 31 0d 34 38 | 30 20 69 66 20 6a 32 20 | dy=1.48|0 if j2 |
|000006b0| 74 68 65 6e 20 64 78 3d | 2d 31 0d 34 39 30 20 69 |then dx=|-1.490 i|
|000006c0| 66 20 6a 33 20 74 68 65 | 6e 20 64 79 3d 2d 31 0d |f j3 the|n dy=-1.|
|000006d0| 35 30 30 20 69 66 20 66 | 62 20 74 68 65 6e 20 33 |500 if f|b then 3|
|000006e0| 37 30 20 3a 20 72 65 6d | 20 66 69 72 65 20 62 75 |70 : rem| fire bu|
|000006f0| 74 74 6f 6e 20 63 6c 65 | 61 72 73 20 73 63 72 65 |tton cle|ars scre|
|00000700| 65 6e 0d 35 31 30 20 78 | 3d 78 2b 64 78 20 3a 20 |en.510 x|=x+dx : |
|00000710| 79 3d 79 2b 64 79 20 3a | 20 72 65 6d 20 6e 65 78 |y=y+dy :| rem nex|
|00000720| 74 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 0d 35 32 |t coordi|nates.52|
|00000730| 30 20 72 65 6d 20 74 65 | 73 74 20 61 6e 64 20 61 |0 rem te|st and a|
|00000740| 64 6a 75 73 74 20 66 6f | 72 20 73 63 72 65 65 6e |djust fo|r screen|
|00000750| 20 62 6f 72 64 65 72 0d | 35 33 30 20 69 66 20 78 | border.|530 if x|
|00000760| 3c 31 20 74 68 65 6e 20 | 78 3d 31 0d 35 34 30 20 |<1 then |x=1.540 |
|00000770| 69 66 20 78 3e 63 20 74 | 68 65 6e 20 78 3d 63 0d |if x>c t|hen x=c.|
|00000780| 35 35 30 20 69 66 20 79 | 3c 31 20 74 68 65 6e 20 |550 if y|<1 then |
|00000790| 79 3d 31 0d 35 36 30 20 | 69 66 20 79 3e 72 20 74 |y=1.560 |if y>r t|
|000007a0| 68 65 6e 20 79 3d 72 0d | 35 37 30 20 69 66 20 6c |hen y=r.|570 if l|
|000007b0| 20 74 68 65 6e 20 63 72 | 3d 6c 25 28 64 78 2b 31 | then cr|=l%(dx+1|
|000007c0| 2c 64 79 2b 31 29 20 3a | 20 72 65 6d 20 6c 69 6e |,dy+1) :| rem lin|
|000007d0| 65 20 63 68 61 72 61 63 | 74 65 72 0d 35 38 30 20 |e charac|ter.580 |
|000007e0| 74 74 3d 74 69 20 3a 20 | 70 6f 6b 65 20 66 6e 61 |tt=ti : |poke fna|
|000007f0| 28 30 29 2c 63 72 2b 31 | 32 38 20 3a 20 70 6f 6b |(0),cr+1|28 : pok|
|00000800| 65 20 66 6e 63 28 30 29 | 2c 63 6c 20 3a 20 72 65 |e fnc(0)|,cl : re|
|00000810| 6d 20 70 6f 6b 65 20 72 | 65 76 65 72 73 65 0d 35 |m poke r|everse.5|
|00000820| 39 30 20 70 6f 6b 65 20 | 76 2c 31 35 20 3a 20 70 |90 poke |v,15 : p|
|00000830| 6f 6b 65 20 73 31 2c 32 | 32 35 20 3a 20 72 65 6d |oke s1,2|25 : rem|
|00000840| 20 68 69 2d 73 6f 75 6e | 64 0d 36 30 30 20 69 66 | hi-soun|d.600 if|
|00000850| 20 74 69 2d 74 74 3c 64 | 6c 20 74 68 65 6e 20 36 | ti-tt<d|l then 6|
|00000860| 30 30 20 3a 20 72 65 6d | 20 73 70 65 65 64 20 64 |00 : rem| speed d|
|00000870| 65 6c 61 79 0d 36 31 30 | 20 74 74 3d 74 69 09 00 |elay.610| tt=ti..|
|00000880| 20 70 6f 6b 65 20 66 6e | 61 28 30 29 2c 63 72 20 | poke fn|a(0),cr |
|00000890| 3a 20 70 6f 6b 65 20 73 | 31 2c 31 33 35 20 3a 20 |: poke s|1,135 : |
|000008a0| 72 65 6d 20 6e 6f 72 6d | 61 6c 20 63 68 61 72 61 |rem norm|al chara|
|000008b0| 63 74 65 72 0d 36 32 30 | 20 69 66 20 74 69 2d 74 |cter.620| if ti-t|
|000008c0| 74 3c 64 6c 20 74 68 65 | 6e 20 36 32 30 20 3a 20 |t<dl the|n 620 : |
|000008d0| 72 65 6d 20 61 6e 6f 74 | 68 65 72 20 64 65 6c 61 |rem anot|her dela|
|000008e0| 79 0d 36 33 30 20 70 6f | 6b 65 20 76 2c 30 20 3a |y.630 po|ke v,0 :|
|000008f0| 20 70 6f 6b 65 20 73 31 | 2c 30 20 3a 20 72 65 6d | poke s1|,0 : rem|
|00000900| 20 73 6f 75 6e 64 20 6f | 66 66 0d 36 34 30 20 67 | sound o|ff.640 g|
|00000910| 6f 74 6f 33 39 30 20 3a | 20 72 65 6d 20 65 6e 64 |oto390 :| rem end|
|00000920| 20 6f 66 20 6c 6f 6f 70 | 0d 36 35 30 20 61 24 3d | of loop|.650 a$=|
|00000930| 22 22 20 3a 20 67 65 74 | 61 24 20 3a 20 69 66 20 |"" : get|a$ : if |
|00000940| 61 24 3d 22 22 20 74 68 | 65 6e 20 36 35 30 0d 36 |a$="" th|en 650.6|
|00000950| 36 30 20 72 65 74 75 72 | 6e 0d 36 37 30 20 72 65 |60 retur|n.670 re|
|00000960| 6d 20 73 75 62 72 6f 75 | 74 69 6e 65 20 74 6f 20 |m subrou|tine to |
|00000970| 72 65 61 64 20 6a 6f 79 | 73 74 69 63 6b 20 73 77 |read joy|stick sw|
|00000980| 69 74 63 68 65 73 0d 36 | 38 30 20 70 6f 6b 65 20 |itches.6|80 poke |
|00000990| 64 64 2c 31 32 37 20 3a | 20 70 3d 70 65 65 6b 28 |dd,127 :| p=peek(|
|000009a0| 70 32 29 61 6e 64 31 32 | 38 20 3a 20 6a 30 3d 2d |p2)and12|8 : j0=-|
|000009b0| 28 70 3d 30 29 0d 36 39 | 30 20 70 6f 6b 65 20 64 |(p=0).69|0 poke d|
|000009c0| 64 2c 32 35 35 20 3a 20 | 70 3d 70 65 65 6b 28 70 |d,255 : |p=peek(p|
|000009d0| 31 29 20 3a 20 6a 31 3d | 2d 28 28 70 61 6e 64 38 |1) : j1=|-((pand8|
|000009e0| 29 3d 30 29 0d 37 30 30 | 20 6a 32 3d 2d 28 28 70 |)=0).700| j2=-((p|
|000009f0| 61 6e 64 31 36 29 3d 30 | 29 20 3a 20 6a 33 3d 2d |and16)=0|) : j3=-|
|00000a00| 28 28 70 61 6e 64 34 29 | 3d 30 29 0d 37 31 30 20 |((pand4)|=0).710 |
|00000a10| 66 62 3d 2d 28 28 70 61 | 6e 64 33 32 29 3d 30 29 |fb=-((pa|nd32)=0)|
|00000a20| 20 3a 20 72 65 74 75 72 | 6e 0d 37 32 30 20 70 72 | : retur|n.720 pr|
|00000a30| 69 6e 74 63 68 72 24 28 | 31 34 37 29 3b 22 65 74 |intchr$(|147);"et|
|00000a40| 63 68 2d 61 2d 73 6b 65 | 74 63 68 20 65 6e 61 62 |ch-a-ske|tch enab|
|00000a50| 6c 65 73 22 0d 37 33 30 | 20 70 72 69 6e 74 22 79 |les".730| print"y|
|00000a60| 6f 75 20 74 6f 20 64 72 | 61 77 20 6c 69 6e 65 73 |ou to dr|aw lines|
|00000a70| 20 6f 72 22 0d 37 34 30 | 20 70 72 69 6e 74 09 00 | or".740| print..|
|00000a80| 72 61 70 68 69 63 20 63 | 68 61 72 61 63 74 65 72 |raphic c|haracter|
|00000a90| 73 20 6f 6e 22 0d 37 35 | 30 20 70 72 69 6e 74 22 |s on".75|0 print"|
|00000aa0| 74 68 65 20 76 69 63 20 | 73 63 72 65 65 6e 20 75 |the vic |screen u|
|00000ab0| 73 69 6e 67 22 0d 37 36 | 30 20 70 72 69 6e 74 22 |sing".76|0 print"|
|00000ac0| 61 20 6a 6f 79 73 74 69 | 63 6b 2e 22 0d 37 37 30 |a joysti|ck.".770|
|00000ad0| 20 70 72 69 6e 74 22 77 | 68 69 6c 65 20 79 6f 75 | print"w|hile you|
|00000ae0| 20 61 72 65 20 64 72 61 | 77 69 6e 67 22 0d 37 38 | are dra|wing".78|
|00000af0| 30 20 70 72 69 6e 74 22 | 79 6f 75 20 6d 61 79 20 |0 print"|you may |
|00000b00| 63 6f 6e 74 72 6f 6c 20 | 74 68 65 22 0d 37 39 30 |control |the".790|
|00000b10| 20 70 72 69 6e 74 22 61 | 72 74 20 69 6e 20 74 68 | print"a|rt in th|
|00000b20| 65 73 65 20 77 61 79 73 | 3a 22 0d 38 30 30 20 70 |ese ways|:".800 p|
|00000b30| 72 69 6e 74 22 20 51 20 | 2d 20 68 69 74 74 69 6e |rint" Q |- hittin|
|00000b40| 67 20 61 6e 20 27 6c 27 | 22 0d 38 31 30 20 70 72 |g an 'l'|".810 pr|
|00000b50| 69 6e 74 22 63 68 61 6e | 67 65 73 20 74 6f 20 6c |int"chan|ges to l|
|00000b60| 69 6e 65 73 22 0d 38 32 | 30 20 70 72 69 6e 74 22 |ines".82|0 print"|
|00000b70| 20 51 20 2d 20 68 69 74 | 74 69 6e 67 20 61 20 27 | Q - hit|ting a '|
|00000b80| 63 27 22 0d 38 33 30 20 | 70 72 69 6e 74 22 73 74 |c'".830 |print"st|
|00000b90| 61 72 74 73 20 61 6c 6c | 20 6f 76 65 72 22 0d 38 |arts all| over".8|
|00000ba0| 34 30 20 70 72 69 6e 74 | 22 20 51 20 2d 20 70 72 |40 print|" Q - pr|
|00000bb0| 65 73 73 69 6e 67 20 74 | 68 65 22 0d 38 35 30 20 |essing t|he".850 |
|00000bc0| 70 72 69 6e 74 22 66 69 | 72 65 2d 62 75 74 74 6f |print"fi|re-butto|
|00000bd0| 6e 20 63 6c 65 61 72 73 | 22 0d 38 36 30 20 70 72 |n clears|".860 pr|
|00000be0| 69 6e 74 22 74 68 65 20 | 73 63 72 65 65 6e 22 0d |int"the |screen".|
|00000bf0| 38 37 30 20 70 72 69 6e | 74 22 20 51 20 2d 20 68 |870 prin|t" Q - h|
|00000c00| 69 74 74 69 6e 67 20 61 | 20 63 6f 6c 6f 72 22 0d |itting a| color".|
|00000c10| 38 38 30 20 70 72 69 6e | 74 22 6b 65 79 20 63 68 |880 prin|t"key ch|
|00000c20| 61 6e 67 65 73 20 63 6f | 6c 6f 72 22 0d 38 39 30 |anges co|lor".890|
|00000c30| 20 70 72 69 6e 74 22 20 | 51 20 2d 20 61 6e 79 20 | print" |Q - any |
|00000c40| 6f 74 68 65 72 20 6b 65 | 79 22 0d 39 30 30 20 70 |other ke|y".900 p|
|00000c50| 72 69 6e 74 22 77 69 6c | 6c 20 63 68 61 6e 67 65 |rint"wil|l change|
|00000c60| 20 74 68 65 22 0d 39 31 | 30 20 70 72 69 6e 74 22 | the".91|0 print"|
|00000c70| 63 68 61 72 61 63 74 65 | 72 20 62 65 69 6e 09 00 |characte|r bein..|
|00000c80| 64 72 61 77 6e 22 0d 39 | 32 30 20 70 72 69 6e 74 |drawn".9|20 print|
|00000c90| 3a 70 72 69 6e 74 22 70 | 72 65 73 73 20 3c 72 65 |:print"p|ress <re|
|00000ca0| 74 75 72 6e 3e 22 20 3a | 20 67 6f 73 75 62 36 35 |turn>" :| gosub65|
|00000cb0| 30 0d 39 33 30 20 72 65 | 74 75 72 6e 0d 72 65 61 |0.930 re|turn.rea|
|00000cc0| 64 79 2e 0d | |dy.. | |
+--------+-------------------------+-------------------------+--------+--------+